unit U_fm_pesquisa;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013White,
  dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, cxStyles, dxSkinscxPCPainter,
  cxCustomData, cxFilter, cxData, cxDataStorage, cxNavigator, Data.DB, cxDBData,
  Vcl.Imaging.jpeg, cxLabel, cxTextEdit, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, cxGroupBox, Vcl.Buttons, dxGDIPlusClasses, Vcl.ExtCtrls;

type
  Tfm_pesquisa = class(TForm)
    Pnl00_Conteiner: TPanel;
    Pnl02_LadoCentro: TPanel;
    Img_Gradiente01: TImage;
    Pnl04_LadoBaixo: TPanel;
    Btn_Key02Cadastros: TSpeedButton;
    Btn_Key02EnterLocalizar: TSpeedButton;
    Btn_Key03PgDnIcon: TSpeedButton;
    Btn_Key04PgUpIcon: TSpeedButton;
    Btn_Key04PgUp: TSpeedButton;
    BtnRecno: TSpeedButton;
    GBox_Mostrador: TcxGroupBox;
    MyMostrador: TcxGrid;
    MyMostradorDBTableView1: TcxGridDBTableView;
    MyMostradorLevel1: TcxGridLevel;
    pnlPnl01_LadoTopo: TPanel;
    btnBtn_TitBar01Fechar: TSpeedButton;
    Edt_Localizar: TcxTextEdit;
    Lbl_TituloDaBusca: TcxLabel;
    imgImg_TitBar01: TImage;
    procedure btnBtn_TitBar01FecharClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  fm_pesquisa: Tfm_pesquisa;

implementation

{$R *.dfm}

{ Tfm_pesquisa }

procedure Tfm_pesquisa.btnBtn_TitBar01FecharClick(Sender: TObject);
begin
Close;
screen.activeForm.alphaBlend:=False;
end;


end.
